home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
8bitfiles.net/archives
/
archives.tar
/
archives
/
commodore-users-of-norman
/
CUON_121_(06-1985).d64
/
char assassin-vi
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2019-04-13
|
1KB
|
26 lines
10 D=22:F=30720:G=1:H=32:DIMA%(39):FORA=1TO10:READC%(A),S%(A):NEXT:A$="[144]"
20 DATA28,116,30,111,31,167,144,170,144,183,156,184,156,188,158,190,159,180,31,181
30 F1=36875:F2=36877:K=250:L=2:POKE36878,15
50 FORA=1TO22:A$=A$+CHR$(C%(INT(RND(1)*10)+1))+CHR$(S%(INT(RND(1)*10)+1))
60 NEXT:POKE36879,30:PRINT"[147] CHARACTER":PRINT" ASSASSINATION"
70 PRINT"ENTER SPEED (0-9)":PRINT" 9 IS THE FASTEST":POKE198,0
80 GETB$:IFB$<"0"ORB$>"9"THEN80
90 S=28-3*VAL(B$):PRINT"[147]"SPC(7)"SCORE[146] 0"
95 FORA=8164TO8185:POKEA,160:POKEA+F,6:NEXT
100 FOR A=1TO20:PRINT:NEXT:PRINTA$;
110 FL=0:FORA=7724TO7745:POKE649,1:SS=25:IFA%(A-7724)=0THEN170
120 NEXTA:POKE198,0:IFFLTHEN110
130 PRINT"[146]"SPC(7)"GAME OVER":PRINT" PLAY AGAIN? (Y/N)"
140 GETA$:IFA$="Y"THENPRINTSPC(9)"[144]OK":RUN
150 IFA$="N"THENPOKE828,0:SYS828
160 GOTO140
170 FL=1:R1=RND(1):R2=(-(R1<.5)*(RND(1)*9+48))+(-(R1>=.5)*(RND(1)*26+1))
180 R$=CHR$(R2-(R2<30)*64):C=A+418:FORB=ATOCSTEPD:POKEF1,K-L*SS
190 SS=SS-1:GETA$:IFA$<>""THENPOKE649,0:IFA$=R$THEN220
200 POKEB-D,H:POKEB,R2:POKEB+F,.
210 FORTD=GTOS:NEXTTD:NEXTB:Q=1:GOSUB230:POKEB-D,H:A%(A-7724)=1:NEXTA:GOTO110
220 Q=0:GOSUB230:POKEB-D,H:SC=SC+SS:PRINT"[146]"SPC(12)SC:NEXTA:GOTO110
230 POKEF1,0:Z=200:POKEB-D+F,2:FORT=1TO20
240 POKEF2,Z:POKE36864,5+(Q=1):POKEB-D,42-4*(PEEK(B-D)=42)
250 Z=Z-(Q=0)*2:POKE36864,5:NEXT:POKEF2,0:RETURN